home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / editor / blksedtr.lha / BED / Rexx / Doc_Startup.bed < prev    next >
Text File  |  1996-01-28  |  694b  |  41 lines
  1. /*
  2. ** $VER: Doc_Startup.bed 1.0 (2.1.96)
  3. **
  4. ** ARexx Macro executed at the opening of each document of Blacks Editor
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. GetFileInfo
  10. PARSE VAR RESULT . . '"'name'"'
  11.  
  12. IF NAME ~= "" THEN DO
  13.     dotpos = LASTPOS('.', name)
  14.  
  15.     IF dotpos = 0 THEN
  16.         ext = ""
  17.     ELSE
  18.         ext = SUBSTR(name, dotpos+1)
  19.     END
  20.  
  21.     SELECT
  22.  
  23. /*
  24. ** You can insert here how many extensions you want:
  25. **
  26. ** For example:
  27. **
  28. ** WHEN (ext = 'asm') | (ext = 's') | (ext = 'a') THEN DO
  29. **     OpenPrefs "BED:Support/Assembler.prf"
  30. **     OpenDefinitions "BED:Support/Assembler.dfn"
  31. ** END
  32. **
  33. */
  34.  
  35.         WHEN (ext = 'c') | (ext = 'h') THEN DO
  36.             OpenPrefs "BED:Support/SAS_C.prf"
  37.             OpenDefinitions "BED:Support/SAS_C.dfn"
  38.         END
  39.     END
  40. END
  41.